10 REM *************************
15 REM * BELEGEN ALLER BLOECKE *
20 REM *                       *
21 REM *                       *
22 REM * ERZEUGT 0 BLOCKS FREE *
23 REM *     AUF DISKETTE      *
24 REM *************************
30 :
35 DIMQ$(255)
40 PRINT"[147][158]":POKE53280,0:POKE53281,0
45 PRINT"       BELEGEN ALLER BLOECKE [146]"
50 FORI=0TO5000:NEXT
60 PRINT"[147]";
70 PRINT"              GESTARTET."
80 OPEN15,8,15:OPEN5,8,5,"#":PRINT#15,"U1:5,"0,18,0
140 FORI=0TO255
150 A$="":GET#5,A$:IFA$=""THENA$=CHR$(0)
160 Q$(I)=A$
170 NEXT
175 CLOSE5
180 FORI=4TO143
182 IFI>71ANDI<76THEN186
184 Q$(I)=CHR$(0)
186 NEXT
200 OPEN2,8,2,"#"
210 FORI=2TO255
212 PRINT#15,"B-P:"2,I
214 PRINT#2,Q$(I);
216 NEXT
220 PRINT#15,"U2:2,"0,18,0
230 CLOSE2
240 PRINT"[147][158]":POKE53280,0:POKE53281,0
250 PRINT#15,"I":CLOSE15